|
200
|
Disables the control
With Exgraph1
.BeginUpdate()
.AutoFit = True
.Series.Add("<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South Americ" & _
"a(433),<img>6</img>Australia/Oceania(42)")
.Enabled = False
.Legend.Visible = True
.EndUpdate()
End With
|
|
199
|
Show icons
With Exgraph1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.AutoFit = True
.Series.Add("<img>1</img>Asia(4600),<img>2</img>Africa(1300),<img>3</img>Europe(747),<img>4</img>North America(579),<img>5</img>South Americ" & _
"a(433),<img>6</img>Australia/Oceania(42)")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
198
|
Displays the control's version
With Exgraph1
Debug.Print( .Version )
End With
|
|
197
|
Changes the control's border (EBN)
With Exgraph1
.BeginUpdate()
.AutoFit = True
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.Appearance = &H1000000
.Series.Add("Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
196
|
Changes the control's border
With Exgraph1
.BeginUpdate()
.AutoFit = True
.Appearance = exontrol.EXGRAPHLib.AppearanceEnum.Flat
.Series.Add("Asia(4600),Africa(1300),Europe(747),North America(579),South America(433),Australia/Oceania(42)")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
195
|
Display the logo on the control's background
With Exgraph1
.BeginUpdate()
.Picture = Exgraph1.ExecuteTemplate("loadpicture(`c:\exontrol\images\card.png`)")
.PictureDisplay = exontrol.EXGRAPHLib.PictureDisplayEnum.UpperRight
.AutoFit = True
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410,1390,331,276,225,213")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
194
|
Changes the control's font
With Exgraph1
.BeginUpdate()
With .Font
.Name = "Tahoma"
.Size = 12
End With
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
193
|
Shows the value-scroll (vertical scroll bar for area-compatible chart types)
With Exgraph1
.BeginUpdate()
.ValueSize = 8
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exAllowValueScroll,1.5)
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate()
End With
|
|
192
|
No values are shown
With Exgraph1
.BeginUpdate()
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exShowValueIf,0)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + value"
End With
.EndUpdate()
End With
|
|
191
|
No labels on category-axis are shown
With Exgraph1
.BeginUpdate()
.ValueSize = 15
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exShowLabelsIf,0)
With .CategoryAxis
.Categories = "Date"
.Format = "value mid 9 left 2"
End With
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate()
End With
|
|
190
|
No category grid lins are shown
With Exgraph1
.BeginUpdate()
.ValueSize = 8
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exShowGridLinesIf,0)
.CategoryAxis.MajorGridLines.Color = "lightgray"
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate()
End With
|
|
189
|
No category ticks are shown
With Exgraph1
.BeginUpdate()
.ValueSize = 8
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exShowTicksIf,0)
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate()
End With
|
|
188
|
Defines the lower and upper margins of the valueSize property (CTRL + Middle button and drag to resize the values)
With Exgraph1
.BeginUpdate()
.ValueSize = 8
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueSizeRange,"1,12")
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate()
End With
|
|
187
|
Even though I set the AutoFit property to False, the control still gets resized when I click CTRL + Middle button
With Exgraph1
.BeginUpdate()
.ValueSize = 8
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueSizeRange,"0,8")
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add("1410,1390,331,276,225,213")
.EndUpdate()
End With
|
|
186
|
Defines the angle (in degrees) the value-line is rotated by, when the values goes up(positive) or down(negative)
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueLineUpAngle,0)
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueLineDownAngle,90)
With .CategoryAxis
.Categories = "Green,Black,Red,Lime,Orange,Red"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,331,-1390,-276,1225,213")
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (value format ``)"
.Type = "line"
End With
.EndUpdate()
End With
|
|
185
|
Defines the additional angle (in degrees) the value-line is rotated by
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueLineAddAngle,0)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.EndUpdate()
End With
|
|
184
|
Defines the distance to extend the value-line by
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueLineExt,12)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + value"
End With
.EndUpdate()
End With
|
|
183
|
Defines the distance from the edge of the outer circle where the values are displayed
With Exgraph1
.BeginUpdate()
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueDistOuterCircular,0)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.ValuePoint = ",,,,,,,red,black,2"
.EndUpdate()
End With
|
|
182
|
Defines the distance from the edge of the inner circle where the values are displayed
With Exgraph1
.BeginUpdate()
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueDistInnerCircular,8)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.EndUpdate()
End With
|
|
181
|
Defines the padding between rings of the "pie" chart-type
With Exgraph1
.BeginUpdate()
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exPaddingInsidePie,12)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
With .Series.Add("141,139,331,276,225,213")
.Type = "Pie"
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.EndUpdate()
End With
|
|
180
|
Requests for a new layout once the serie's visible property is changed
With Exgraph1
.BeginUpdate()
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exNewLayoutOnVisibleChange,False)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add("1410,1390,331,276,225,213")
.Type = "Pie"
.ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.ValueFormat = "`<c>` + category + `<br><c>` + (percent format ``) + `%`"
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
179
|
Prevents rotating the labels
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exRadialRotateLabels,False)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add("1410,1390,331,276,225,213").Type = "radarColumn"
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
178
|
Defines the angle (in degrees) to start the circular-compatible charts (radial or pie)
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exCircularStartAngle,0)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add("1410,1390,331,276,225,213").Type = "radarColumn"
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
177
|
Defines polygonal instead of circular
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exRadarPolygonal,True)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add("1410,1390,331,276,225,213").Type = "radarColumn"
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
176
|
Defines the distance (proportionally with the valueSize property) between the first, next and last value of the same category and its border
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exMarginValueRatio,0.5)
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exPaddingValueRatio,0.5)
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410,1390,331,276,225,213")
.Series.Add("9900,3300,980,190,90,8")
.EndUpdate()
End With
|
|
175
|
Ensures that the marginal labels of the value-axis ensure fit the axis's client-rectangle
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueAxisFitLabel,True)
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410,1390,331,276,225,213")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
174
|
Prevents updating the margins/minimum/maximum of the value-axis when the user scrolls the data
With Exgraph1
.BeginUpdate()
.ValueSize = 6
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exUpdateRangeOnScroll,0)
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .Series.Add()
.Data = "Volume"
.Type = "candle"
End With
.EndUpdate()
End With
|
|
173
|
Defines the padding for labels and title of the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueAxisPad,16)
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410,1390,331,276,225,213")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
172
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exValueAxisSize,16)
.ValueAxis.OffsetLabel = "16,16"
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410,1390,331,276,225,213")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
171
|
Defines the padding for labels and title of the category-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exCategoryAxisPad,16)
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410,1390,331,276,225,213")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
170
|
Defines the size (height for horizontal axis and width for vertical axis) to display the category-axis (line and ticks)
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exCategoryAxisSize,16)
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.OffsetLabel = "0,-16"
End With
.Series.Add("1410,1390,331,276,225,213")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
169
|
Defines the minimum/maximum portion (as a proportion of major unit, as a numeric-value between 0 and 1) to extend the axis before the first/after the last value of the serie (minimum, maximum value)
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.extVisibleBeforeAxis,1)
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.extVisibleAfterAxis,1)
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410,1390,331,276,225,213")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
168
|
Defines the number of digits to appear after the decimal point (as it is)
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exDigits,-1)
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231").ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
167
|
Defines the number of digits to appear after the decimal point
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exDigits,3)
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410.1211,1390.8999,331.3421,276.8991,225.0023,213.2231").ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exValue Or exontrol.EXGRAPHLib.ShowValueEnum.exLine Or exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
166
|
Defines the inferior and superior limits of the number of major-unit intervals an axis can display
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exRangeMajorUnits,"2")
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410,1390,331,276,225,213")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
165
|
Defines the base major-units alternatives (separated by comma) the control uses to calculate the major-unit for the axes
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Misc(exontrol.EXGRAPHLib.MiscEnum.exBaseMajorUnits,"5")
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil"
.Series.Add("1410,1390,331,276,225,213")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
164
|
Customizes the tooltips to show on category-axis, when the crosshair intersects the category-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxis
.Format = "value + `°`"
.CursorFormat = "``"
End With
.CategoryAxis.CursorFormat = "`<b><fgcolor F0F0F0> ` + value + ` `"
With .Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain")
.Type = "RangeColumn"
.CursorFormat = "%V0 +`° - ` + %V1 + `°`"
End With
.SeriesColors = "green"
With .Cursor
.Visible = True
.SerieTooltipBackColor = "black"
.SerieTooltipForeColor = "rgb(254,254,254)"
.TooltipPad = 4
.ShowCursorValueLine = False
End With
.EndUpdate()
End With
|
|
163
|
Defines the configuration options to show the grid lines and labels between for the overview panel
With Exgraph1
.BeginUpdate()
With .ValueAxis
.Format = "value / 1000000"
.MajorUnit = 50000000
End With
With .CategoryAxis.OverviewGridLines
.Format = "`<fgcolor red><b>` + (value left 4)"
.Color = "red"
.Style = 1
.Width = 2
End With
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
.SeriesColors = "blue"
.Series.Add("Volume")
.Overview.Visible = True
.EndUpdate()
End With
|
|
162
|
Add additional grid-lines for categories
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.MajorGridLines.Color = "lightgray"
With .ChartGridLines
.Format = "value = `Pakistan`"
.Align = exontrol.EXGRAPHLib.DrawTextFormatEnum.exTextCalcRect
.Width = 2
.Color = "black"
.Skip = 1
End With
End With
.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
.SeriesColors = "lime"
.EndUpdate()
End With
|
|
161
|
Add grid-lines for categories
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.MajorGridLines.Color = "lightgray"
End With
.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
.SeriesColors = "lime"
.EndUpdate()
End With
|
|
160
|
Shifts horizontally or vertically the labels relative to their original positions
With Exgraph1
.BeginUpdate()
.ValueSize = 48
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.OffsetLabel = "0,-22"
.Tfi = "<fgcolor red> bold"
End With
.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
.SeriesColors = "lime"
.EndUpdate()
End With
|
|
159
|
Combines/Merges categories sharing consecutive names according to the Format property
With Exgraph1
.BeginUpdate()
.AutoFit = True
.CategoryAxis.Visible = True
With .CategoryAxes.Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
.Format = "value"
.Split = True
.MajorGridLines.Color = "black"
End With
.ValueAxis.Format = "value + `°`"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "lime"
.EndUpdate()
End With
|
|
158
|
Combines/Merges categories sharing consecutive names according to the Format property
With Exgraph1
.BeginUpdate()
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/msft.csv"
With .CategoryAxis
.Categories = "Date"
.Format = "dateS(value left 7) format `MMM`"
.Split = True
.MajorGridLines.Color = "lightgray"
End With
With .Series.Add()
.Name = "msft"
.Data = "Open,High,Low,Close"
.Type = "candle"
End With
.EndUpdate()
End With
|
|
157
|
Defines the category-axis's background color
With Exgraph1
.BeginUpdate()
.AutoFit = True
.CategoryAxis.Visible = True
With .CategoryAxes.Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
.Format = "value"
.Split = True
.Tfi = "bold"
.Color = 14474460
End With
.ValueAxis.Format = "value + `°`"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.Series.Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), De" & _
"c(-3 3)","Romania").Type = "RangeColumn"
With .Legend
.Visible = True
.Dock = exontrol.EXGRAPHLib.PanelDockEnum.exLeft
End With
.EndUpdate()
End With
|
|
156
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Format = "value + `°`"
With .CategoryAxis.MajorTicks
.Color = "red"
.Width = 4
.Style = 0
.Skip = 3
.Step = 2
End With
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate()
End With
|
|
155
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Format = "value + `°`"
With .CategoryAxis.MajorGridLines
.Color = "red"
.Width = 4
.Style = 0
.Skip = 3
.Step = 2
End With
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate()
End With
|
|
154
|
Defines the color, size and style to display the line of the category-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Format = "value + `°`"
With .CategoryAxis.AxisLine
.Color = "red"
.Width = 2
.Style = 0
End With
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate()
End With
|
|
153
|
Specifies the rotation angle (in degrees) for the title and labels of the category-axis, in 'labels,title' format
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Format = "value + `°`"
.CategoryAxis.Angle = "-90"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate()
End With
|
|
152
|
Defines the title of the category-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Format = "value + `°`"
.CategoryAxis.Title = "<b>Range-Temperature"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.SeriesColors = "green"
.EndUpdate()
End With
|
|
151
|
Changes the font attributes to apply on the title and labels of the category-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Tfi = "<fgcolor red> Tahoma 7 bold"
End With
.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
150
|
Defines the direction of the category axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Reverse = True
End With
.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
149
|
Aligns the category-axis to bottom/right or top/left side of the view
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Align = exontrol.EXGRAPHLib.AlignEnum.exAlignLeft
End With
.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
148
|
Hides the category axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Visible = False
End With
.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
147
|
Customizes the labels to show on category axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .CategoryAxis
.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Format = "(index < 2 ? `<b>` : `<fgcolor gray>`) + value"
End With
.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
146
|
Defines the categories (method 2)
With Exgraph1
.BeginUpdate()
.AutoFit = True
.Series.Add("China(1410),India(1390),United States(331),Indonesia(276),Pakistan(225),Brazil(213),Nigeria(211),Bangladesh(166),Russia(145),Me" & _
"xico(130)")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
145
|
Defines the categories (method 1)
With Exgraph1
.BeginUpdate()
.AutoFit = True
.CategoryAxis.Categories = "China,India,United States,Indonesia,Pakistan,Brazil,Nigeria,Bangladesh,Russia,Mexico"
.Series.Add("1410,1390,331,276,225,213,211,166,145,130")
.SeriesColors = "blue"
.EndUpdate()
End With
|
|
144
|
Adds multiple category-axes
With Exgraph1
.BeginUpdate()
.AutoFit = True
.CategoryAxis.MajorGridLines.Color = "lightgray"
With .CategoryAxes.Add("Winter,Winter,Spring,Spring,Spring,Summer,Summer,Summer,Autumn,Autumn,Autumn,Winter")
.Format = "value"
.Split = True
.Tfi = "bold"
.MajorGridLines.Color = "black"
End With
.ValueAxis.Format = "value + `°`"
.Series.Add("Jan(5 15), Feb(6 16), Mar(8 18), Apr(10 20), May(13 23), Jun(17 28), Jul(20 32), Aug(20 32), Sep(18 28), Oct(14 23), Nov(9 17)," & _
" Dec(6 15)","Spain").Type = "RangeColumn"
.Series.Add("Jan(-4 2), Feb(-3 4), Mar(1 10), Apr(5 16), May(10 21), Jun(13 25), Jul(15 28), Aug(14 27), Sep(10 22), Oct(5 15), Nov(0 7), De" & _
"c(-3 3)","Romania").Type = "RangeColumn"
With .Legend
.Visible = True
.Dock = exontrol.EXGRAPHLib.PanelDockEnum.exLeft
End With
.EndUpdate()
End With
|
|
143
|
Redefines the major-unit of the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.MajorUnit = 1000
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
142
|
Redefines the margins/limits of the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxis
.Min = -100
.Max = 6000
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
141
|
Defines the start/end position of the value-axis (relative to full axis)
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxes
.Add("p").End = 0.75
With .Add("a")
.End = 0.25
.Visible = False
.ColorChart = 16119285
.Reverse = True
.MajorGridLines.Width = 0
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
140
|
Customizes the tooltips to show on value-axis, when the crosshair hovers the chart
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxis
.Format = "value format `0`"
.CursorFormat = "value format `0`"
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.Cursor.Visible = True
.EndUpdate()
End With
|
|
139
|
Hides the tooltip that's shown over the value-axis, while cursor hovers the serie
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.CursorFormat = "``"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.Cursor.Visible = True
.EndUpdate()
End With
|
|
138
|
Shifts horizontally or vertically the labels relative to their original positions
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.OffsetLabel = "4,8"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
137
|
Defines the color to apply on the chart's background right to the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.ColorChart = "red"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
136
|
Changes the value-axis's background color
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Color = "red"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
135
|
Defines the color, size, style, skip and step configuration options of the major grid-lines to be shown by the value-axis on the chart panel
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxis.MajorGridLines
.Color = "red"
.Width = 4
.Style = 0
.Skip = 3
.Step = 2
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
134
|
Defines the color, size, style, skip and step configuration options of the major ticks to be shown on the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxis.MajorTicks
.Color = "red"
.Width = 4
.Style = 0
.Skip = 3
.Step = 2
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
133
|
Defines the color, size and style to display the line of the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxis.AxisLine
.Color = "red"
.Width = 2
.Style = 0
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
132
|
Converts the serie's values to [0,1] range, as percentages (the values area always numbers between 0 and 1)
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxis
.AsPercent = True
.Format = "value * 100 + `%`"
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
131
|
Defines the rotation angle (in degrees) for the title and labels of the axis, in 'labels,title' format
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxis
.Angle = "-90,-90"
.Title = "<b>mil"
.Format = "value ? value format `0` : ``"
End With
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
130
|
Defines the title of the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Title = "<b>mil"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
129
|
Specifies the font attributes to apply on the title and labels of the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Tfi = "<fgcolor red> Tahoma 10 bold"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
128
|
Defines the direction of the value axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Reverse = True
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
127
|
Aligns the value-axis to bottom/right or top/left side of the view
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Align = exontrol.EXGRAPHLib.AlignEnum.exAlignRight
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
126
|
Customizes the labels of the value axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Format = "value ? `<c><b>` + (value format `0`) + `</b><br><c><fgcolor lightgray>mil` : ``"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
125
|
Customizes the labels of the value axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Format = "value ? (value format `0`) + ` mil` : ``"
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
124
|
Hides the value-axis
With Exgraph1
.BeginUpdate()
.AutoFit = True
.ValueAxis.Visible = False
.CategoryAxis.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
End With
.EndUpdate()
End With
|
|
123
|
Changes the position of value-axis (click to change the value-axis's position)
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Exgraph1_Click(ByVal sender As System.Object) Handles Exgraph1.Click
With Exgraph1
.ValueAxes.Item("a").Position = 0
End With
End Sub
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxes
.Add("p")
.Add("a").Color = "teal"
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
122
|
Access the value-axis giving its name (click to change the value-axis's background)
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Exgraph1_Click(ByVal sender As System.Object) Handles Exgraph1.Click
With Exgraph1
.ValueAxes.Item("a").ColorChart = 16119285
.Refresh()
End With
End Sub
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxes
.Add("p").Start = 0.25
With .Add("a")
.End = 0.25
.Visible = False
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
121
|
Specifies the name of the value axis to use
With Exgraph1
.BeginUpdate()
.ValueSize = 18
With .ValueAxes
With .Add("pop-ax")
.Name = "pop-ax"
.Start = 0.25
.Align = exontrol.EXGRAPHLib.AlignEnum.exAlignLeft
End With
With .Add("area-ax")
.Name = "area-ax"
.End = 0.25
.Visible = False
.ColorChart = 16119285
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "pop-ax"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
.Vertical = True
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "area-ax"
End With
End With
With .Legend
.Visible = True
.Dock = exontrol.EXGRAPHLib.PanelDockEnum.exLeft
.Align = exontrol.EXGRAPHLib.LegendAlignEnum.exStart
End With
.EndUpdate()
End With
|
|
120
|
Remove a value-axis (click to remove the first value-axis)
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Exgraph1_Click(ByVal sender As System.Object) Handles Exgraph1.Click
With Exgraph1
.ValueAxes.Remove(0)
End With
End Sub
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxes
.Add("p").Start = 0.25
With .Add("a")
.End = 0.25
.Visible = False
.ColorChart = 16119285
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
119
|
Remove all value-axes (click to clear the value-axes)
' Click event - Occurs when the user presses and then releases the left mouse button over the control.
Private Sub Exgraph1_Click(ByVal sender As System.Object) Handles Exgraph1.Click
With Exgraph1
.ValueAxes.Clear()
End With
End Sub
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxes
.Add("p").Start = 0.25
With .Add("a")
.End = 0.25
.Visible = False
.ColorChart = 16119285
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
118
|
Adds multiple value-axes
With Exgraph1
.BeginUpdate()
.AutoFit = True
With .ValueAxes
.Add("p").Start = 0.25
With .Add("a")
.End = 0.25
.Visible = False
.ColorChart = 16119285
End With
End With
With .CategoryAxis
.Categories = "Asia,Africa,Europe,North America,Antarctica,South America,Australia/Oceania"
.MajorGridLines.Color = "lightgray"
End With
With .Series
With .Add("4600,1300,747,579,0,422,42")
.Name = "Population"
.Axis = "p"
.Type = "Line"
.set_Misc(exontrol.EXGRAPHLib.SerieMiscEnum.exLineSize,3)
End With
With .Add("4458,3037,1018,2470,1784,1018,856")
.Name = "Area"
.Axis = "a"
End With
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
117
|
Defines the foreground color to show the visible values within the control's legend
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exLegendLabel,Color.FromArgb(0,0,1))
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exLegendSymbol,Color.FromArgb(0,0,1))
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
116
|
Defines a different background color to show the visible values within the control's legend
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exLegendUnit,Color.FromArgb(240,240,240))
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
115
|
Defines a different background color to show the hidden values within the control's legend
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exLegendUnitHidden,Color.FromArgb(240,240,240))
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
114
|
Defines the foreground color to show the hidden values within the control's legend
With Exgraph1
.BeginUpdate()
.AutoFit = True
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exLegendLabelHidden,Color.FromArgb(220,220,220))
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exLegendSymbolHidden,Color.FromArgb(220,220,220))
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
113
|
Hides a symbol or item of the legend by code
With Exgraph1
.BeginUpdate()
.AutoFit = True
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)").Name = "Area"
With .Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Name = "Population"
.Visible = False
End With
.Legend.Visible = True
.EndUpdate()
End With
|
|
112
|
Defines the percentage of transparency for displaying tooltips on series
With Exgraph1
.BeginUpdate()
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exSerieCursorTooltipTransparent,Color.FromArgb(75,0,0))
.AutoFit = True
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Cursor.Visible = True
.EndUpdate()
End With
|
|
111
|
Defines the percentage of transparency for displaying tooltips on axes
With Exgraph1
.BeginUpdate()
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exAxisCursorTooltipTransparent,Color.FromArgb(75,0,0))
.AutoFit = True
.Series.Add("Asia(4600), Africa(1300), Europe(747), North America(579), South America(431), Australia/Oceania(42)")
.Series.Add("Asia(4458), Africa(3037), North America(2470), South America(1784), Antarctica(1400), Europe(1018), Australia/Oceania(856)")
.Cursor.Visible = True
.EndUpdate()
End With
|
|
110
|
Specifies the percent of transparency to show the overview-selection (0 indicates opaque, 50% indicates semi-transparent, and 100% indicates fully transparent)
With Exgraph1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exOverviewSelTransparent,Color.FromArgb(75,0,0))
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate()
End With
|
|
109
|
Changes the color to show the overview's selection (EBN color)
With Exgraph1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXGRAPHLib.BackgroundPartEnum.exOverviewSel,&H1000000)
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate()
End With
|
|
108
|
Changes the color to show the overview's selection (solid color)
With Exgraph1
.BeginUpdate()
.set_Background32(exontrol.EXGRAPHLib.BackgroundPartEnum.exOverviewSel,&H10000ff)
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate()
End With
|
|
107
|
Changes the color to show the overview's selection
With Exgraph1
.BeginUpdate()
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exOverviewSel,Color.FromArgb(255,0,0))
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate()
End With
|
|
106
|
Changes the overview's background
With Exgraph1
.BeginUpdate()
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exOverviewSelOut,Color.FromArgb(240,240,240))
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate()
End With
|
|
105
|
Specifies the visual-appearance to display the left/right parts outside of the overview-selection
With Exgraph1
.BeginUpdate()
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exOverviewSelOut,Color.FromArgb(240,240,240))
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate()
End With
|
|
104
|
Adds left/ resize-margins of the overview's selection to resize it (EBN)
With Exgraph1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXGRAPHLib.BackgroundPartEnum.exOverviewSelResize,&H1000000)
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate()
End With
|
|
103
|
Adds left/ resize-margins of the overview's selection to resize it
With Exgraph1
.BeginUpdate()
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exOverviewSelResize,Color.FromArgb(1,0,0))
.ValueSize = 6
.Data = "C:\Program Files\Exontrol\ExGraph\Sample\Data/aapl.txt"
With .Series.Add()
.Name = "aapl"
.Data = "AAPL (open),AAPL (high),AAPL (low),AAPL (close)"
.Type = "candle"
End With
.Overview.Visible = True
.EndUpdate()
End With
|
|
102
|
Changes the colors to show the value's tooltip
With Exgraph1
.BeginUpdate()
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exToolTipBackColor,Color.FromArgb(1,0,0))
.set_Background(exontrol.EXGRAPHLib.BackgroundPartEnum.exToolTipForeColor,Color.FromArgb(255,255,255))
.AutoFit = True
.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.EndUpdate()
End With
|
|
101
|
Changes the visual appearance of the borders of the tooltips
With Exgraph1
.BeginUpdate()
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXGRAPHLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
.AutoFit = True
.Series.Add("Pacific Ocean(16525), Atlantic Ocean(10646), Indian Ocean(7056), Southern Ocean(2033), Arctic Ocean(1406)").ShowValue = exontrol.EXGRAPHLib.ShowValueEnum.exPoint
.EndUpdate()
End With
|